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de me pose de petites questions ces tenps-çi. Est-ce qu'un 

lecteur pourra me renseigner, mystère... Est-ce que quelqu'un 
sait si l'hebdomadaire POPULAR COMPUTING WEEKLY existe toujours? 
TIME DESIGN, TS HORIZONS, SYNCWARE NEWS sont-ils toujours en vie? 


Aussi, il y a sürement des lecteurs liens qui sont membres de 
QUANTA. J'aimerais savoir si ils ont réussi à obtenir la fameuse 
librairie de logiciels. Sinon je sais que le libraire-QUANTA aux 
Etats-Unis est DAVE ROTHMAN, 10156 Little Pond Place, 
Gaithersburg MD 20879, USA. Alors voilà, le seul moyen pratique 
est à mon avis de commander la librairie au complet d'un coup! 
Cela représente plus de 8 Mega-octets de logiciels, i.e. 8000 K 
ou 80 ydrives. Autant dire tout de suite que les pdrives sont à 
rejetés pour ce genre de transaction à cause des frais de 
transports élevés, J'ai appris qu'il en coute $110 US pour la 
librairie complète sur disquettes, Cela représente un bon montant 
pour une seule personne mais si on pouvait se regrouper cela 
abaisserait les coûts sensiblement, alors si vous êtes un membra 
QUANTA et que la librairie vous intéresse, communiquez avec moi, 
car plus on sera à partager les frais, plus on pourra profiter de 
notre "membership" à QUANTA. Merci, 


NOUVEAU SPECTRUM. ssnunsanssesueununs 


AMSTRAD annonce un nouveau modèle SPECTRUM nommée cette fois-çi, 
SPECTRUM +3, Ce qui caractérise celui-ci est qu'il y a un lecteur 
de disque 3" intégré. Il possède également 128K de RAM, 2 ports 
JOYSTICK, un semblant de port MIDI, et une sortie R5232, Le prix 
équivaut à environ $300 US, 


COMPUTER FEST... . ess see ae ھ‎ ٢ seen .. 


C'est au mois de mai dernier qu'a eu lieu le TS COMPUTER FEST 87, 
Cette année le tout s'est tenu à CINCINNATI. Le H tenait une 
place importante, mais le 2068 et le 1181 étaient toujours 
présents en force. 


Voici les faits saillants: 


ZEBRA SYSTEMS offrait un TRACKBALL compatible 2088/üL. 


: NOVELSOFT (Toronto), auteur de TIMACHINE (compilateur 2068/5P), 
de ARTWORK (logiciel graphique 2068/5P), ont présenté leur 
dernier produit, ZXpert qui permet de créer un système expert, 


LEMKE SOFTWARE DEVELOPPEMENT, auteur de PIXEL SKETCH AND GRAPHIC 
EDITOR, présente PIXEL PRINT qui amène le 2068 à l'ère du DESKTOP 
PUBLISHING. 


ARCHIVE est un logiciel avec beaucoup de possibilités, RMG 
ENTERPRISE ont produit un bouquin sur les "Ins and Outs" 
d'ARCHIVE. Cette même compagnie a également congu des programmes 
(pour affaires) "ready to use" pour ARCHIVE toujours. 


; NOVELSOFT 106 7th Street, Toronto Canada MOV 384 (415) 259-8582 
. LEMKE SOFTWARE DEV, 2144 White Oak, Witchita KS 67207 U.S.A. 

; RMG ENTERPRISE 1419 1/2 7th Street Oregon City OR 97045 U.S.A. 

` ZEBRA SYSTEMS 78-05 Jamaica Ave., Woodhaven NY 11421 U,S,A, 


' NOUVEAUX ITEMS QLiens............ 


CURRY COMPUTER offre un EPROM qui peut remplacer les 2 ROMs du 
' GL. Ceci a pour effet de diminuer la consommation du courant. Ils 

peuvent également installer ICE, TOOLKIT IT ou GFLASH sur la 
; tarte si vous leur envoyer l'original. Mais le plus intéressant 
' est qu'ils peuvent vous mettre soit le ROM JSU (US) ou JS 
. (Angleterre), cette dernière corrige les petits problèmes 
: d'images avec certains logiciels britanniques, Prix -( $49.95 US 


| Egalement CURRY COMPUTER annonce une carte, la TRUMP CARD, elle 
| donne un interface pour disquette, 768K de RAM (au lieu du 640K 
i Standard), TOOLKIT II intégré et d'autres logiciels en prime. 
| Tout ça pour moins de $300 US ( probablement $299,95), Cette 
. carte est fabriquée par MIRACLE SYSTEMS. 


| COMPUTER SHOPPER ` 


| Fait assez rare de nos jours, le magazine américain COMPUTER 
. SHOPPER augmente sa couverture des ordinateurs SINCLAIR. En 
| effet, il semble que MARK L, FENDRICK, l'auteur de SINCLAIR 
| SURVIVAL COLUMN, se spécialise sur le QL tandis qu'une nouvelle 
. colonne, MORE TIMEX-SINCLAIR, traitera plus spécifiquement du 
i 2058 et du SPECTRUM, 


لد 


QL compatible CF/M...... مور‎ sasan. 


CURRY COMPUTER (encore...) annonce un EMULATEUR CP/M pour le 8L, 
Cela consiste à un ROM et un logiciel, Les lecteurs de disquette 
sont essentiels car les logiciels CP/M ( ex. HORDSTAR, TURBO 
PASCAL,etc...) se présente toujours sous la forme de disquettes 
9.25", Ce qui est intéressant avec ceci, est que avec un logiciel 
du genre BRAM, vous pouvez fonctionner avec les 2 systèmes 
d'exploitation en même temps, i.e. CP/M et 0108 car je vous 
rappelle que le QL est multi-táche. 


Si vous ne pouvez pas lire un programme sur votre microdrive, 
et que vous ne possédez pas le logiciel 'Doctor' ou 'üDoctor' 
pour recupérer le programme qui est corrompu, voici un petit 
programme utilitaire qui peut-&tre vous rendra service. Ce 
programme pourra aussi récuperer un fichier ‘Archive’ qui se 
solde avec le message 'Wong file’ . 


I] suffit de comparer avec un bon programme afin de faire la 
correction nécessaire. 


Yves bagnon, 


120 REMark == Yves Gagnon 04/06/87 == 

140 REMark szzzzzzzzzzzzzzzzzzzzzzz2zz22zz 

US 1۶ 9 9 9 191111111 

170 71 ( Fi ) MODE MONITEUR 

180 13٢٣٢ 7171 

190 : 

200 INIT 

210 DEPART 

220 : 

240 DEFine PRüCedure INIT 

250 1۳٢٥ 051 

260 CLS:CLS#0:CLS#2:DRV$=" ۷۹0۷۱: MODE 4 

270 INPUT\ ENTREZ LE NOM DU PROGRAMME CORROMPU :'Vnon$ 
280 INPUTV'ENTREZ LA LONGUEUR DE CE PROGRAMME :'\long 
290 a=RESPR(Iong) 

300 LBYTES DRV$4" "knomt,a 

310 END DEFine INIT 


mm 


320 REMark tf: 
330 DEFine PRÜCedure DEPART 
340 REMark 0 9 9 91 
350 92 
360 PRINT#2,\' < Fi > POUR LA CORRECTION DU BYTE’ 
` ` 370 PRINT#2,\ < F2 > REVENIR AU DEBUT DU PROGRAMME” 
' 380 PRINT#2,\ < F3 > SAUVEGARDE DU PROGRAMME CORRIGE? 
(390 PRINT#2,\' < F4 > RETOUR AU BASIC’ 
1400 PRINT#2,\" € F5 > CHARGEMENT D'UN PROGRAMME" 
(410 881172,۱١۱ ADRESSE ==)’ 
420 PRINT#2,\ — CODE ==)’ 
1430 PRINT#2,\ N/BYTES =->' 
| 440 FOR x=0 TD long 
450 PRINT CHR$(PEEK(atx)); 
` 460 AT#2,12,1S:PRINTHZ,atx;" ° 
. 470 ATR2, 14, IB: PRINTEZ,PEEK(aé4);! ° 
: 480 ATE2, KIHM TM 
` 490 CLE-CODE (INKEYS (71)) 
| 500 IF CLE=232 THEN cor 
| 510 IF CLE=236 THEN DEPART 
| 520 IF CLE=240 THEN SAUVE 
| 830 IF CLE=244 THEN STOP 
| 540 IF CLE-248 THEN RUN 
| 550 IF x=long THEN GO TO 490 
. 560 END FOR x 
| 570 END DEFine DEPART 
| 580 REMark (DIER n 
| 990 DEFine PRüCedure cor 
| 600 REMark (DEED 
' 610 AT#2,18,0: INPUT#2, "ENTREZ LE NOUVEAU CARACTERE: Vcod$ 


| 420 POKE atx, CODE (cod$) 
| 630 DEPART 
| 440 END DEFine cor 
| 650 ٣٣٢٤٢ 1 
' 660 DEFine PROÜCedure SAUVE 
. 670 ١٣٠٢٢ 1 
۵٨80 AT#2,18,0:PRINT#2, METTRE UNE CARTOUCHE FORMATTEE DANS 
0۷1 V TAPEZ UNE TOUCHE POUR CONTINUER’ 
690 PAUSE 
700 AT#2,18,0:PRINT#2, 7 


710 AT#2,18,0:INPUT#2, ENTREZ LE NOM DU PROGRAMME: "noe ` — 
720 SBYTES DRV$&' _’&non$,a,long 3000 ٧٣٤٤٣٢٢ 1 
730 DEPART 5010 DEFine PROCedure enr 
740 END DEFine SAUVE 3020 ٧٣٣3٢٢ 51 
3030 DELETE 'ndvi REC BAS’ 
3040 SAVE — 'mdvi REC BAS' 
9090 END DEFine 
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Voici non premier programme en assenbleur 68000, Cet utilitaire 


ajoute 2 nouvelles commandes au SUPERBASIC qui mettent le clavier 
soit en minuscule soit en majuscule, Ces commandes ont pour nom: 


CAPSON -> Clavier Majuscule 
CAPSOFF -> Clavier Minuscule 


Tapez le programme basic, et les codes seront sauvés 
automatiquement soit sur disquette ou sur pdrive, On spécifie le 
nom du fichier dans la variable fichier$, 
Ex. fichier$z"ndvi CAPS bin" 
fichier$z'flpl CAPS bin" 


Voyons un peu la méthode à suivre pour définir des extensions au 
: SUPERBASIC, 


, 1° Nous devons initialiser nos nouvelles commandes, Pour ce 
, faire, nous chargeons Al avec l'adresse de la table qui contient 
l'information nécessaire à cette initialisation, Puis dans A2, 
! nous mettons l'adresse du vecteur qui contient l'adresse de la 
routine de QDÜS qui se charge de valider nos nouvelles commandes. 
Ce vecteur est à l'adresse 1108. Lorsque la validation est 
| terminée, nous mettons "0" dans DO pour permettre un retour au 


29 Notre table de définition commence avec le nombre de commandes 
que nous voulons définir, Dans notre cas, c'est 2, Puis on donne 


' l'adresse relative de la 1er= commande, le nombre de lettres puis 
' la syntaxe de la commande. Ün recommence avec la 2:*^* commande, 

| Après les commandes, nous disons que nous définissons aucune 
: fonction. 


: 39 La routine CAPSOFF consiste à mettre "0" dans la variable 


systeme à 28088h, 


4? La routine CAPSON consiste à mettre "255" dans la variable 
système à 28088h. 


à Commandes SUPERBASIC pour mettre le clavier 


1 soit en majuscule, soit en minuscule, 


CAPSOFF -) 


1 

1 SYNTAXE: CAPSON — -> 
1 

1 

1 Auteur: Réal Gagnon 

i 

1 


1 DDOS routine 


BPINIT EQU 40 


t 

CAPS EQU — $28088 
OFF ERU 0 

DN EaU -i 

t 


1 -initialisation des commandes CAPSOFF et CAPSON 


i 
LEA CAPUDMM A 
MOVE.H — BPINIT, A2 


JSR (A2) 
MOVEG 0 
RTS 

1 


1 Les commandes 

1 

CAPCOMM 1 
DC. W 
DC.B 
DC. W 
DC. B 
DC.W 
DC.W 
DC.W 

1 

CAPSOFF MOVEG 7۴ 


MOVE.W DO, 


RTS 
1 


CAPSON MOVED #ON, 
MOVE.W DO, 


MOVER #0, 
RTS 


END 


i 


2 
CAPSUFF-1 
7, 'CAPSOFF' 
CAPSON-+ 

5, CAPSON' 
0 

0 

0 


F, DO 
(CAPS) 


10 
(CAPS) 
DO 


Initialisë nouvelles connandes BASIC 


Variable-système par CAPS LOCK | 


Clavier majuscule 
Clavier minuscule 


janvier 87 


Pointe les noms des commandes 
Routine DDOS pour les mettre en fonction 
| 
m" 


Retour sans probléme... 
«aU SUPERBASIC 


Nombre de commandes 

Adresse de la routine CAPSOFF 
Nbre de lettre et syntaxe 
Adresse de la routine CAPSON 
Nbre de lettre et syntaxe 

Fin des procédures E 
Aucune fonction i 
Fin des fonctions i 


Met 0 dans la variable-systène 
pour tomber en minuscule. 
Retour au SuperBasic. 


Met 255 (en binaire signé) dans lai 
var,-sys. pour tomber en majusc. ` 
D0=0 pour le retour sans erreur 
au SuperBasic, 


octo vene 


Fin du programme 


10 REMark CAPS COM 
20 REMark R. GAGNON Montreal 87 
30 REMark CAPSON -> Majuscule 
40 REMark CASPOFF -)Minuscule 
50 REMark LOAD avec a=respr (54) 
60 REMark LOAD xxxx vunn ۵8 
70 REMark CALL a 
80 : 
90 depart-RESPR(44) 
100 INPUT "Nom :";n$ 
110 FOR i=0 TO 63 
120 READ a: POKE depart+i,a 

130 END FOR i 
140 : 
. 130 DELETE n$ 
160 SBYTES n$,depart,64 


170 : 

1000 DATA 57,250,0,12,52,120,1,16,78,146 10000 : «y es 

1001 DATA 112,0,78,117,0,2,0,26,7,67 10005 DEFine PROCedure update 
1002 DATA 65,80,83,79,70,70,0,26,4,67 10006 DELETE £1pl caps load 
1003 DATA 65,80,83,79,78,0,0,0,0,0 10007 SAVE flpi caps load 
1004 DATA 0,0,112,0,21,192,0,2,128, 134 10008 END DEFine 


1005 DATA 78,117,112,255,51, 192,0, 2, 128, 136 
1006 DATA 112,0,78,117 


M ——À MÀ —  — À‏ ااا اا ee‏ مهه مههه m ae me oa‏ ورموره مه رورو 


: TRUC SPECTRUM/2088, .. TRUC SPECTRUM/2058. . , TRUC SPECTRUM/2088. , , TR 
: 8i vous possédez une imprimante T82080, voici une routine qui 
vous pernet d'imprimer soit l’écran entier (24 lignes) ou le 
: nombre de lignes que vous désirez, 

10 RESTORE : INPUT "Adresse de depart: Vide 

20 CLEAR dep-1 

30 FOR fzdep TO dep+5 

40 READ a: POKE f,a 

30 NEXT f 

60 LOAD ""SCREEN 

70 RANDOMIZE USR dep 


SPECTRUM +80 DATA 243,4,192,195,175,14 
2068 _ 380 DATA 243,6,192,195,5,10 


Hs nombre {92 représente le nombre de 11008518 que l'on veut 
. imprimer, Exemple pour 24 lignes -( 24 042 
pour 12 lignes -) 12 576 


mv 


OUT 


OZ Kb H ou 
m m E h 
III VEL bent D سا‎ sa 
imll EE 2 AH 
rk ru ud 

UNE TRAN NT M im 
le i 7 bi Ut Kai ۸ n ñ 1 nm l RK 

vim! ` vm "mE w 

de 
RK sel M H 

n .^ bt j 
: oven | "m Hu 
SHH ke 

١١ D o MN 1 ALU یږ‎ d 
H q n de di t 11717 É 


IL ` 


W| 


٣۸ uh 


0 : H SE hn 
il d p nd den 


T TES 


"| ۱٨ ٧ 


Wi MEN 
» h A 


" LTEM JU 
mm 0 pa j F 
W^ s 
Ko n a 
1 d 
» H d 
" e ad [f] 
Odd 30 


d 
WM 


8 


ii a 


١ Wi OU j ۳ i 1 ` 


vul bal BU à 


En If‏ سا 
hI U HY 8,‏ 


٨. ki us اس‎ 
لر‎ Old 
Ë MUD w » W 
WETE d 
N LA maj di 
y ۳ : 


YÉ der ul 01 
m Ñ d d d 
METAM 
M U LT n Mt 
1 VUE UI bn bas a ru 
gt m inu qn 
MI Dp gi a 2 le Phil 
quse m d.n s 
TEEFDISISEEDIMEN. 


js. DI 


T 


IW 
11 


m. 


سیا 

E ts, i 
MO rum "m 

n» «nou» »n on» 


11 D, 
HE At 
H iu 


pn I 
1 i DA BE 


Im 
ün, 
ual | 


lf : H 


l [m LU T 


FEE 
nb t 


hw d 


di f^ 


EM 


Dw OU H 

i d D m n 
TEM jin "i 
dm A 9 29 
EUM 


"i 


pam 

D Mr m OU uM fim 
: 2 , hil ۸ Sé wl ' d o 
m IW 
d "o e لل‎ 
"m "ovo P" 
" ut 
m DE 


i d T 
19 d, D ue fim 
EIN 
1 E 
TUM 


h "at 


0 Zu. 1 2 


d 


peii 
peli 


" y 
m >a m 1 ë n Wull 
d 0١ 0 m 1 } an, 
" dch DEA 1 0۸٠ 1 : vilia 
Wo m ^ "Nei m "DE ۳ 0 d " we 
Wo ue W M Bg ٧ o, Aug M.E QU m e d 
"PE Di ki lhe ws T 3 Dau FER TT CURE . o 
man D: ud d m "m Pas i P M. e i] KE! " nyc, M 
TL ME GW um di AIT TET: qum s . T 22 
dn 3 D 1 A Go Ji ١ wm ۸ WEN "T A ۸ 4 1 MW : : : M d : | KI 
M JA 1۷ m I VO 2 OM 0 ٨ loft ^ m 
men "K wm MD 1T H an : HERE Wu? d 


UI Wé 
Wu d 


on m 
ا ا‎ A 
J s ml 


PLC [Üw owl 


^t ۷" wv II wën 0, mp (RAI 0 » nh Wall " 
1 n " " [6] ME Häll Mo np m " "wr vw Di D T 
WA ! WM ü d d | L ۸ n pmo web E NI EGET 


۷ M rf ss TETTE Di 
LE dv 1 SCH M14243! 
Eat E Ge PH xS mc mg qi 
d) Bh) mm t E t ئ‎ ۷ HY: 
| 


rod 


HR 
f, (H | P ٤١ 1 mi 
d 


gua umn uar peon punt 


MERS TES 


lu " 1 In WI Eier he rn M 0 1 ٧ h 1 Ké m MI dt Ki UN M Kä Ki 
"n ara L wi S AA III 8 ال‎ M. ER D, CB 1 eos P o 
ELM ٢٧ ed ua P G wi dë RULES Û e e Ml he 0 o ٨٠ 
Lo. od A A de A omen 5^ Di "up KÉ | سه‎ ue wa 

M bh Dal Hi n. m d gd gi OI "NED m i Dh 


Im JH 
1/۸ H m À 


TEE T 
mm em 


gu d d main 
١۱۱ ۱۹١ E n pn Pn n, o MT d] nd 
dl, HE 


' Ki ۸ m 
F Ej n d 5 b ek nd D G k, di : ^ LE ! di ۸ HA m m i m 
Mo ed dE CI یا‎ CET C | he OT 2 Lil D [m m Pl "4 
a BERDA E dl PHP 7 1 ٢١ HEP TÉLÉ MD | Bu 
vr da II wd ر‎ H vi ایا‎ ha M L 3 ^r n qr M l Loi ۳ , a 7 + [bed] ال‎ 
II un, اا‎ nn 0 [7 vi لآ ابا له‎ (GU Tp un d 1 d LE f 1 j : ma 1 € d: 3 m LI Gi 


sd T E‏ سا 
ل. سا Hai‏ 


Mm A | OW 1 bil i ch ۱١١ Î ٩۹ ١ Î ih TT ٩١ ۳ à 


E " dm : SÉ (3 IO WI hi d 
LO A À nn Ü YÉ e Ú I m P d À ٨٨٨۷ | $ 


ER Hle 


1 
i 


E 1 

s= = H 

= > H 

a wŒ Qa ' 

Kl viel D 3 i Si ui 

E d aos Sm ï 

rb Wat "PV ma IX" Sg ui 

b, ميا‎ WB lk 1 HN? g H TI (otia ER n} 

NE 199 ud T ^ | mn UP USE se > E eR | 

rH ۲ CA 1 i J 33452495: 

pi Deum Mud wi dl " Dg EE DNE 

WI Ce I اس ده سوت‎ 

J N) b D md PJ š, (OPEM worn Uu d 

L ۷ "ETE Ka 1:28 H re BE Sri) 

D bh ELE ELE T. = G E R E mu dus mmt i 

[^ tb. » d ۷ h d dd 34 ۸» en el AN WW 1 ca Q- va | 
PE PTE L dt dal D i bv ri. i.t at? : kr ۷ ١ Sun اباب ين‎ 
f d i. '3 LE ٢ nal : ۷ engt e A | E BA BS = ! 
WE is PL T EI "as e y 1 ۱ 1 RE Su 
PNP DUE 159.19) e ۱١۱١١١ A O, f 1) ” i M) kan HE f ! l atum: 
d TEL ار و ر ا‎ 3 d dh | د‎ winr m | 
1: Dun D ma: d md m m mn io” 3845: 

J Pp 1 gen. SN D لس‎ Oo لی‎ MEE f Kai Km 
" UNO Tt "PES L DI À BN EERSTE =! 
۱ EL: oul R Ch CEDE 0 vi | | 1 lin ' TE EO | 
HM n n IMP ١ 153 AE LAN M 18) Ji i 23 !اب کا‎ 
"| H Oh DU Ob, d ch pau s. OI 1 O G رر د‎ 1 

s : m: ^ i g! KH H D TE 8 ۳ IS دت‎ ٥ 10e TS), 

wd HE MILD » um d ٧ سم‎ © D 

"miu m. M ECKE "M e hdl | cu Ane | 

PIX y be, D : jl) Sn md ul ` ` a aah H 

THE 5 do ms : d gë H : i "z i 

m Ze qj 1 [M 1 ' Ex: pe 1‏ ار 

Vu LE î dJ i d e Grieg 3 81 KE d 

EE i 


Dans cet article, nous allons découvrir comment exploiter les 
possibilités graphiques du 2068 via le langage machine, en 


utlisant la plupart du temps les routine ROM. 


Les adresses correspondantes pour le SPECTRUM seront données 


entre parenthéses, 


Toutes les adresses sont en nombres décimaux. 
FLOT 


Cette routine se trouve à l'adresse 9790 (8933), Avant l'appel, 
nous chargeons le registre B avec la coordonnée Y (0-175) et le 
registre Û avec la coordonnée X (0-255), 


Si nous voulons faire PLOT 10,50 alors nous aurons 
LD B,50 ;Y 
LD C,10 3X 
JP 9790 ;PLOT & retour 
en BASIC, 


Le prochain exemple trace une droite verticale, 


LD B,175 ;Y 
LD C,10 — 1X 

LOOP PUSH BC sauvegarde de B 
CALL 9790 ;PLOT X,Y 
POP BC retrouve B 
DJNZ LOUP ;B=B-1,si B(>0 on 

srecommence à LOOP 

RET 


DRAW 


La commande BASIC DRAW X,Y trace Un droite à partir du dernier 
PLOT avec déplacement vertical et horizontal, positif ou négatif. 
À l'intérieur de la ROM, la routine se trouve à l'adresse 10259 
(9402), 


Avant l'appel, nous chargeons B avec le déplacement Y 
C avec le déplacement X 
D avec 253 si Y est négatif ou Í si 
Y est positif 
E avec 255 si X est négatif ou 1 si 13 
Y est positif 


Ainsi pour l'équivalent de DRAW 10,-50 — 


LD 8,50 
LD C,10 

LD 5 
TEN 
CALL 10259 


IMPORTANT: À cause d'un "BUG" de la ROM, lorsque l'on revient de 


routine et que nous retournons au BASIC, nous devons 
mettre dans le registre H'L' la valeur 11030 (10072) 
sinon le programme plante ... 


Dans l'exemple suivant, nous faisons PLOT 0,175 et 
DRAW 255,-175 . 


PLOT LD 8,175 ;valeur Y 
LD C,0 "valeur 
CALL 9790 ;ROM PLOT 

DRAW LD B,175 ;déplacement Y 
LD C,255 ;déplacement X 
LD 1,255 ;Y négatif 
LEI $X positif 
CALL 10259;ROM DRAW 

FIN LD HL,11030 
EXX ;H*L?=11030 
RET 


CIRCLE 


La routine CIRCLE se trouve à l'adresse 9842 (9005). Cette 
routine va chercher ses arguments sur la pile arithmétique, Il ` 
est facile pour le programmeur d'y mettre les valeurs nécessaires 
en utilisant la routine à l'adresse 12518 (11560) qui copie le 


contenu du registre À sur le dessus de la pile. 


Pour tracer un cercle, nous mettons dans l'ordre, les arguments 
suivant sur la pile: centre X, centre Y et le rayon, 


Au retour de la routine ROM qui trace le cercle, nous devons 
charger le registree H'L' avec la valeur 11030 (10072) sinon on 


"CRASH" <. 


š , 
| دچ‎ T n... 


Dans l'exemple suivant, nous faisons CIRCLE 100,80,75 


LD A, 100 position X 
CALL 12518 ;A sur la pile 
LD 40 iposition Y 
CALL 12518 

LD A,75 ;rayon 

CALL 12518 

CALL 9862 ;trace cercle 
LD HL, 11030 

EXX (UL? 211030 
RET 


BORDER 


Pour le charger du BORDER, nous pouvons écrire, dans le port 254, 
la couleur désirée, mais la couleur ne reste que de façon 
temporaire, 


Pour un BORDER de couleur BLANCHE. 


(BASIC) OUT 254,7 (MACHINE) LD 4,7 
QUT (254),A 


Pour changer de façan permanente, on utilise la routine située à 
l'adresse 9285 (8859), On charge l'Accumulateur (A) avec la 
couleur désirée, 

LD 4,0 — ;NOIR 

CALL 9283 ;ROM BORDER 

RET 


CLS 


Pour un CLS complet de l'écran, la routine se trouve à l'adresse 
2282 (3503). On l'appelle avec (BASIC) RANDOMIZE USR 2282 
(MACHINE) JP 2282 ou 
CALL 2282 
RET 


Egalement, il est facile d'effacer seulement une partie de 
l'écran. C'est-à-dire seulement B ligne(s) à partir du BAS de 
l'écran. Cette routine est à l'adresse 2431 (3552). Si nous 
voulons effacer 10 lignes à partir du bas de l'écran: 


-si la couleur du BORDER=couleur du PAPER —— 


LD B,10 
CALL 2431 
RET 


-si la couleur du BORDER()couleur du PAPER 


LD 4,2 
CALL 4454 ; (5633) 
LD 8,10 

CALL 2431 

RET 


| REM petit prog graphiques 

2 REM Personal Conputer#06 

H 
4 INPUT "Pause (1-50):";pa 

10 FOR xz0 TO 14 STEP 2 

20 FÜR i=8 TQ 50 STEP 10 

30 PLOT 120+x,90+i+x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW O,i 
40 PLOT 120-x,90-i-x: DRAW -i,0: DRAW 0,1: DRAW i,0: DRAW 0,-i 
50 PLOT 120+x,90-i-x: DRAW i,0: DRAW O,i: DRAW -i,0: DRAW 0,-i 
40 PLOT 120-x,90+i+x: DRAW 0,-i: DRAW -i,0: DRAW O,i: DRAW i,0 
70 PLOT 119-x,89+i-x: DRAW i,0: DRAW 0,-i: DRAW -i,0: DRAW Oi 
BO PLOT 1214x,91-i*v: DRAW -i,0: DRAW 0,1: DRAW i O: DRAW 0,-i 

100 OVER 1: PAUSE pa: NEXT i: NEXT x: GO TO 10 


1 REM petit prog graphiques? 
2 REM Personal Conputer#06 
3: 
10 BORDER 0: PAPER 0: INK 7: CLS : FOR x=0 TO 16 STEP Z 
20 FOR i=0 TÜ 65 STEP à 
30 PLOT 130+x,90+itx: DRAW i,-i: DRAW -i,-i: DRAW -i,i: DRAW i 
,i 
40 PLOT 130-x,90-i-x: DRAW -i,i: DRAW i,i: DRAW i,-i: DRAW -i, 
-i 
50 PLOT 130-x,90+itx: DRAW -i,-i: DRAW *i,-i: DRAW i,i: DRAW - 
ij 
60 PLOT 1304x,90-1-x: DRAW i,i: DRAW -i,i: DRAW -i,-i: DRAW i, 
2 -i 


100 OVER 1: NEXT i: NEXT x: BEEP .2,22: PAUSE 0: 60 TO 10 


|! À VENDRE 


16-1000; 78-2040; Périphérique MEMOTECH ( Mémoire, Clavier, KRG, 
I/F Imprimante, etc... ); Imprimante Thermique BROTHER HRS; 
Moniteur Monochrome 12"; Logiciels et Livres ( liste sur demande) 


ñ, LAVIOLETTE 15-1385 Bernard Montréal H2V (Ni (514) 273-4103 


TRUCS QL 


Voici une fonction qui simule la fonction GEN du 2068. Elle 
retourne -1 si le nombre est négatif, 1 si le nombre est positif. 


` 10 DEFine FuNction SEN (nombre) 
20 RETurn (nonmbre?0)- (nombrec0) 
30 END DEFine 


Voici une procédure qui provoquera un RESET par logiciel. 


10 DEFine PRüCedure RESET 
20 POKE L 2^17,"1312837232" 
30 CALL 2^17 

40 END DEFine 


Voici 2 procédures pour controler le vidéo, 


10 DEFine PRüCedure VIDEO DN 
20 POKE 98483,0 
30 END DEFine 


10 DEFine PROCedure VIDED_DFF 
20 POKE 98483,3 
30 END DEFine 


Et maintenant 2 fonctions qui nous informent sur la mémoire du 
HL. 


eM 


La première nous donne la mémoire disponible. On l'utilise de 
cette façon: PRINT free_mem;" Octets disponibles" 


10 DEFine FuNction FREE MEM 

20 RETurn PEEK L(153855) -PEEK L | 
(163852) E 

30 END DEFine | 


La deuxième nous donne la capacité de l'extension mémoire qui est ! 
installée, On l'utilise de cette façon: 
PRINT exp_mem;"Kilo-octets " 


10 DEF FuNction EXP MEM | 
20 RETurn PEEK_L (143872) /1024-256 
30 END DEFine 


La mémoire-écran du OL débute à l'adresse 131072 et occupe 32K. | 
Pour sauver le contenu de l'écran, nous pouvons faire ceci: 


SBYTES ndvi screen, 131072, 32758 


Mais ces chiffres sont difficile à retenir. Pour nous faciliter 
la tâche, nous pouvons utiliser cet équivalent: 


SBYTES mdvi screen, 2^17,2^15 


NOUVEAU NEWSLETTER POUR LE 20468 


Vous avez un 2068 et une interface de disque DLIBER? 
Saviez-vous qu'il y a "newsletter" pour vous! Son nom est 
"T$-2068 Safe Disk Update" et il parait à tout les 3 
mois. Il traite bien entendu du DOS OLIGER mais aussi sur des 
aspects très techniques du 2068 comme les CARTOUCHES, 
EXPANSION RAM, et tout ce qui a rapport au HARDWARE. 
L'abonnement pour Í année est de $12.00 US, 


16-2088 SAFE DISK UPDATE, 1317 Stratford Ave, Panama City 
FL 32404 USA 


CARACTERES FRANCAIS avec FRONT PAGE 


Vous possèdez le logiciel FRONT PAGE (QL) et vous voulez des 
caractères français? 


SIN vous fait une offre: envoyez-moi un microdrive pu une 
disquette (5.25") plus 1$ (pour la poste) et par le retour du 
courrier, vous allez obtenir ces caractères français. 


TOUCHE CARACTERE 
[ Á 
1 à 
í È 
É ü 
Pour obtenir des caractères français dans 2 SN 
FOHT PAGE, charger le Fichier ACCENT FAT, : 
Le "CHARSET" à utiliser est ALT. : : 


CLUB SINCLAIR 


CLUB des UTILISATEURS QL 
4000 BL. CENTRAL NORD 
DUBERGER GIP 3P9 


CLUB des UTILISATEURS 2048 
A/S PIERRE GAUDET 

1805 CAMBERT 

QUEBEC GIP ٤1 


tà 


Mn 
0108 


1 
| 
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iaaa Í 
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AD 
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RE 
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Le HE WH 
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